home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / anim / anim.dem next >
Text File  |  1999-09-16  |  342b  |  22 lines
  1. mode(0);
  2. xbasc();
  3.  
  4. path='SCI/demos/anim/';
  5.  
  6. demolist=['Plot3d1';
  7.     'param 3d';
  8.     'param 3d lorentz curve';
  9.     'contour';
  10.     'plot3d';
  11.     'N pendulum';
  12.     'plot3d1 with xtape'];
  13. go_on=%t;
  14. while go_on then
  15.   num=x_choose(demolist(:,1),'Choose a demo');
  16.   if num=0 then go_on=%f;
  17.   else
  18.      xbasc();
  19.      exec(path+'anim'+string(num)+'.dem');
  20.   end,
  21. end
  22.